﻿Imports System.Data
Imports System.Data.SqlClient
Public Class frmAgregarBeneficiarios

    Private Sub btnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
        Me.Close()
    End Sub

    Private Sub frmAgregarBeneficiarios_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarBeneficiario' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarBeneficiarioTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarBeneficiario)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarParentesco' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarParentescoTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarParentesco)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarCliente' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarClienteTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarCliente)
        Me.cboParentesco.Enabled = False

    End Sub

    Private Sub txtPorcentaje_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPorcentaje.KeyPress
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsLetter(e.KeyChar) Then
            e.Handled = True
        ElseIf Char.IsSeparator(e.KeyChar) Then
            e.Handled = True
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsPunctuation(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub

    Private Sub cboBusquedaCliente_EditValueChanged(sender As Object, e As EventArgs) Handles cboBusquedaCliente.EditValueChanged
        Me.cboParentesco.Enabled = True
    End Sub

    Private Sub AgregarBeneficiario()
        Try
            Me.SP_ListarBeneficiarioTableAdapter.SP_InsertarBeneficiario(txtNombre.Text, txtApellido.Text, cboParentesco.EditValue, txtPorcentaje.Text, cboBusquedaCliente.EditValue)
            MessageBox.Show("Ha ingresado correctamente sus beneficiarios", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles btnAgregar.Click
        AgregarBeneficiario()
        Me.Close()
    End Sub
End Class